Top 10k strings from Comp-U-Share (1983)(Micromega).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
3 staddr,nbytes
3 ;"total ";
3 ;"Press r when ready"
3 ;" ";
3 ;" ";
3 *** ***
2 tst=tst+f(al)
2 ;"maximum 8 characters"
2 ;"VERIFY DATA"
2 ;"SAVE DATA"
2 ;"LOAD DATA"
2 ;"INDEX NUMBER";
2 ;"Enter name for data ";
2 ;"DISPLAY RECORD INDEX";
2 ;"- start tape"
2 ;"- remove programme cassette";
2 ;"(to 1 dec. place up to 99.9)"
2 ***********************
2 ))+"******")(
1 xx=xx*.992
1 xx=xx*.9875
1 xx=xx*.9835
1 xx=(e(al)*g(al))/100
1 xx=((xx-7000
1 xx=((xx-2500
1 xb=(h(al)*tst)/100
1 vid=vid+divi
1 value=e(al)*g(al)/100
1 tst=tst+vid
1 tst=(e(al)*g(al))/100
1 tol=tol+tst
1 tol=tol+tcp
1 tcp=xx-f(al)
1 tcp=e(al)*g(al)/100
1 share lV
1 r(h(nm));" pct"
1 r((vid*100
1 r((tst/aaa)*100
1 r((tol/tst)*100
1 r((tcp*100
1 r((kth/tol)*100
1 r((kth/bbb)*100
1 r((i(nm)*g(nm)*e(nm))/fv)
1 r(((xx-f(al))*100
1 r(((tst-f(al))*100
1 r(((tol-neu)*100
1 r(((hhh-neu)*100
1 neu=neu+xx
1 neu=neu+valx
1 neu=neu+f(al)
1 kth=kth+xb
1 kth=kth+tol
1 kth=(h(al)*e(al)*g(al))/10000
1 i(r)=i(r+1
1 hhh=hhh+xx
1 h(r)=h(r+1
1 h(nm)=h(nm)*fv/(g(nm)*e(nm))
1 g(r)=g(r+1
1 fv=g(nm)*e(nm)
1 f(r)=f(r+1
1 e(r)=e(r+1
1 d$(r)=d$(r+1
1 d$(nm)=b$(
1 d$(nm)="N/A"
1 d$(mxrec,5
1 c$(r)=c$(r+1
1 c$(nm)="UNIT TRUST"
1 c$(nm)="SHARE"
1 c$(nm)="LOAN STOCK"
1 c$(mxrec,10
1 bbb=bbb+tcp
1 b$=(b$+" ")(
1 amr);" ";
1 aaa=aaa+f(al)
1 a$(r)=a$(r+1
1 a$(mxrec,8
1 LOAD DATA LIST RECORDS INPUT NEW DATAMODIFY DATA DISPLAY RESULTSAVE DATA X
1 Created with Ramsoft MakeTZX
1 COMP-U-SHARE
1 ;h(nm);" pct"
1 ;b$;": prepare to save...";
1 ;b$;": prepare to load....";
1 ;b$;" pence"
1 ;b$;" NOT FOUND"
1 ;"u unit trust"
1 ;"total ";" ";
1 ;"select";
1 ;"r continue index"
1 ;"press ENTER when error";
1 ;"present price "
1 ;"please wait"
1 ;"otherwise MMYY"
1 ;"or c to continue"
1 ;"option";
1 ;"of purchase "
1 ;"l loan stock";
1 ;"keys 6/7 control cursor";
1 ;"is reached"
1 ;"invalid entry"
1 ;"input number"
1 ;"input e to edit ";
1 ;"in pence "
1 ;"if unknown, enter ""u"""
1 ;"i input codes"
1 ;"enter number"
1 ;"enter name"
1 ;"end of list"
1 ;"e exit";
1 ;"deleting ";a$(
1 ;"c to finish"
1 ;"between 1 and 99999"
1 ;"at present price "
1 ;"a new stock?";
1 ;"a all "
1 ;"` ";f(nm)
1 ;"VERIFY DATA";
1 ;"Too many characters":
1 ;"TOTAL COST"
1 ;"SUMMARY";
1 ;"STATUS";
1 ;"STATISTICS";
1 ;"SAVE DATA";
1 ;"Record complete";
1 ;"REALISABLE VALUE";
1 ;"QUANTITY"
1 ;"Prepare to verify data...";
1 ;"PRESENT PRICE"
1 ;"P/E RATIO"
1 ;"NAME",,"TYPE",,"DATE",,"QUANTITY",,"TOTAL COST",,"PRESENT PRICE",,"YIELD",,"P/E RATIO"
1 ;"NAME TO DELETE";
1 ;"MEMORY FULL":
1 ;"MEMORY EMPTY"
1 ;"Leading blank invalid":
1 ;"LOAD DATA";
1 ;"Input yield in percent";
1 ;"Input yield (`) ";
1 ;"Input type:";:
1 ;"Input total cost";
1 ;"Input quantity purchased"
1 ;"Input present price";
1 ;"Input new name";
1 ;"Input month and year";
1 ;"Input P/E ratio at";
1 ;"INPUT INDEX NUMBER";
1 ;"INDEX OF RECORDS";
1 ;"INDEX NUMBER"
1 ;"Enter ""c"" if unknown,";
1 ;"Edit mode":
1 ;"Do you wish to add";
1 ;"DISPLAY RESULTS"
1 ;"DELETE";
1 ;"DELETE MODE"
1 ;"DATA MODIFY MODE"
1 ;"- reposition tape";
1 ;"- replace ear plug";
1 ;"- remove ear plug":
1 ;"- position data tape";
1 ;"- position blank tape";
1 ;"- note tape counter number";
1 ;"- ensure ear plug inserted";
1 ;"(y or n)"
1 ;"(to nearest `) ";
1 ;"(max 8 chars) "
1 ;" "
1 ;" ";
1 ;" "
1 ;" "
1 ;" "
1 ;" "
1 ;" "
1 ;" "
1 ;" ":
1 /(g(nm)*e(nm))
1 ,rp;g(nm);" pence";
1 ,rp;e(nm);
1 ,rp;d$(nm)
1 ,rp;c$(nm);
1 ,rp;a$(nm);
1 +s);" ";a$(s);"(";c$(s,1
1 **output table 2
1 ***output table 4
1 ***output table 3
1 *** QUANTEC SYSTEMS ***
1 *** & SOFTWARE LTD ***
1 *** compliments ***
1 )=(((" "+x$)(
1 )=(((" "+
1 )="SAVE DATA"
1 )="MODIFY DATA"
1 )="LOAD DATA"
1 )="LIST RECORDS"
1 )="INPUT NEW DATA"
1 )="DISPLAY RESULTS"
1 )+"/"+b$(3
1 ((tcp-f(al))+.5
1 ((tcp*h(al)/100
1 (((h(al)*value)/100
1 "8500,6010,0235,2980,1665,8000"((IOP-1
1 "3450,3700,3440,0130"((iop-1
1 "3230,3130,3390,0130"((iop-1
1 "0330,0430,0572,9952,0807,9952,1027,1270"((a-4
1 " s share";
1 W
1
1
1